home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dt01 / demo.frm next >
Text File  |  1995-05-07  |  3KB  |  107 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Demo"
  6.    ClientHeight    =   3795
  7.    ClientLeft      =   1275
  8.    ClientTop       =   1635
  9.    ClientWidth     =   5490
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   0   'False
  12.    FontName        =   "MS Sans Serif"
  13.    FontSize        =   13.5
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    ForeColor       =   &H00000000&
  17.    Height          =   4200
  18.    Left            =   1215
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   3795
  23.    ScaleWidth      =   5490
  24.    Top             =   1290
  25.    Width           =   5610
  26.    Begin PictureBox Panel3D2 
  27.       BackColor       =   &H00FF0000&
  28.       FontBold        =   -1  'True
  29.       FontItalic      =   -1  'True
  30.       FontName        =   "MS Sans Serif"
  31.       FontSize        =   13.5
  32.       FontStrikethru  =   0   'False
  33.       FontUnderline   =   0   'False
  34.       ForeColor       =   &H00FFFFFF&
  35.       Height          =   612
  36.       Left            =   600
  37.       ScaleHeight     =   585
  38.       ScaleWidth      =   4305
  39.       TabIndex        =   0
  40.       Top             =   240
  41.       Width           =   4332
  42.    End
  43.    Begin PictureBox Panel3D1 
  44.       BackColor       =   &H00C0C0C0&
  45.       Height          =   336
  46.       Left            =   600
  47.       ScaleHeight     =   300
  48.       ScaleWidth      =   1665
  49.       TabIndex        =   2
  50.       Top             =   1200
  51.       Width           =   1692
  52.       Begin ComboBox Combo1 
  53.          Height          =   288
  54.          Left            =   24
  55.          TabIndex        =   1
  56.          Text            =   "Combo1"
  57.          Top             =   24
  58.          Width           =   1644
  59.       End
  60.    End
  61.    Begin CommandButton Command1 
  62.       Caption         =   "&End"
  63.       FontBold        =   -1  'True
  64.       FontItalic      =   0   'False
  65.       FontName        =   "MS Sans Serif"
  66.       FontSize        =   13.5
  67.       FontStrikethru  =   0   'False
  68.       FontUnderline   =   0   'False
  69.       Height          =   492
  70.       Left            =   3600
  71.       TabIndex        =   3
  72.       Top             =   3000
  73.       Width           =   1332
  74.    End
  75. End
  76.  
  77. Sub Combo1_DropDown ()
  78.  
  79.     calendar combo1
  80.  
  81. End Sub
  82.  
  83. Sub Command1_Click ()
  84.  
  85.     End
  86.  
  87. End Sub
  88.  
  89. Sub Form_Load ()
  90.  
  91. ' ==========================================
  92. ' Loading the 'Date Tracker' form here is
  93. ' unnecessary, but makes the first call
  94. ' as fast/slow as all subsequent calls.
  95. ' ==========================================
  96.  
  97.     Load frmCalendar
  98.  
  99.  
  100.  
  101. ' Initialize date in combo box.
  102. ' -----------------------------
  103.     combo1.Text = Format$(Now, "dd-mmm-yyyy")
  104.  
  105. End Sub
  106.  
  107.